Option Explicit
Sub A_Sample042()
    Dim myRng As Range
    Dim myAdr As String
    Dim i     As Long
    Dim j     As Long
    i = 4                   'w}r
    j = 9
    myAdr = "B" & CStr(i) & ":" & "F" & CStr(j)
    'ǳƨ즹
    Set myRng = Range(myAdr)    'H}rӫwxsd
    MsgBox myRng.Address
    Set myRng = Nothing     '
End Sub

